10 PRINT"[147]"TAB(8)"*** ONE MOMENT PLEASE ***"
20 FORA=49465TO49467:B=B+PEEK(A):NEXT:IFB=384THENCLR:GOSUB1140:GOTO40
30 SYSPEEK(45)+PEEK(46)*256-2584:CLR:GOSUB1140:SYSCM
40 PRINTCHR$(14);"[147]            SELECT FROM MENU  "
50 PRINT"       [195]    =    [195][210][197][193][212][197][160][196][207][195][213][205][197][206][212]"
60 PRINT"       [196]    =    [196][201][211][208][204][193][217] [196][207][195][213][205][197][206][212]"
70 PRINT"       [204]    =    [204][207][193][196][160][196][207][195][213][205][197][206][212]"
80 PRINT"       [208]    =    [208][210][201][206][212][160][196][207][195][213][205][197][206][212]"
90 PRINT"       [211]    =    [211][193][214][197][160][196][207][195][213][205][197][206][212]"
100 PRINT"       [199]    =    [199][197][212] [196][201][210][197][195][212][207][210][217]"
110 PRINT"       [197]    =    [197][216][201][212][160][208][210][207][199][210][193][205]":GOSUB1720
120 GOSUB1380
130 IFZ$="C"THEN270
140 IFZ$="D"THEN510
150 IFZ$="L"THEN610
160 IFZ$="P"THEN700
170 IFZ$="S"THEN1030
180 IFZ$="G"THEN1570
190 IFZ$="E"THENPRINT"[147]        [211][217][211][212][197][205][160][210][197][211][197][212][160][201][206][160][208][210][207][199][210][197][211][211]":SYS64738
200 IFZ$="[133]"THEN1080
210 IFZ$="[137]"THENPOKEBO,14:POKEBB,14
220 IFZ$="[134]"THEN1100
230 IFZ$="[138]"THENPOKEBA,6
240 IFZ$="[135]"THEN1120
250 IFZ$="[139]"THENPOKE646,14:POKECH,14:M=14:GOTO40
260 GOSUB1740:GOTO120
270 GOSUB1330
280 GOSUB1380
290 IFZ$="Y"THEN40
300 IFZ$<>"N"THENGOSUB1740:GOTO280
310 PRINT"[147]       [211][212][193][206][196][193][210][196][160][205][193][210][199][201][206][160][211][197][212][213][208][160][201][211]:"
320 PRINT"    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
330 PRINT"         LEFT MARGIN     =   5"
340 PRINT"         RIGHT MARGIN    =   5"
350 PRINT"         TOP MARGIN      =   3"
360 PRINT"         BOTTOM MARGIN   =   3"
370 PRINT"    DO YOU WISH TO RESPECIFY ? (Y/N) "
380 GOSUB1720
390 GOSUB1380:IFZ$="N"THENB=0:GOTO420
400 IFZ$="Y"THEN460
410 GOSUB1740:GOTO390
420 PRINT"[147]            [195][204][197][193][210][201][206][199][160][205][197][205][207][210][217]":IFB=1THEN440
430 POKELA,5:POKERA,75:POKELP,60:POKELS,6
440 SYSCR
450 GOTO40
460 GOSUB1400
470 GOSUB1380
480 IFZ$="N"THEN40
490 IFZ$<>"Y"THENGOSUB1740:GOTO470
500 POKELA,LM:POKERA,80-RM:POKELP,66-TM-BM:POKELS,TM+BM:B=1:GOTO420
510 PRINT"[147]"TAB(14)"[196][201][211][208][204][193][217] [198][210][207][205]":PRINTTAB(13)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
520 PRINT"     [194] [146]  =   BEGINNING OF DOCUMENT"
530 PRINT"     [204] [146]  =   LAST CURSOR POSITION":GOSUB1720
540 GOSUB1380
550 IFZ$="L"THENDA=DL:GOTO580
560 IFZ$="B"THENDA=DB:GOTO580
570 GOSUB1740:GOTO540
580 IFPEEK(49179)+PEEK(49180)<>66THEN430
590 SYSDA
600 GOTO40
610 GOSUB1330
620 GOSUB1380
630 IFZ$="Y"THEN40
640 IFZ$<>"N"THENGOSUB1740:GOTO620
650 PRINTCHR$(142);"[147]"TAB(12)"LOAD A DOCUMENT":PRINTTAB(11)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
660 GOSUB1720:DN$="":INPUT" DOCUMENT NAME ";DN$:IFDN$=""THEN40
670 DN$=LEFT$(DN$,16)
680 PRINT" CLEARING MEMORY":SYSCM:PRINT" LOADING ";DN$
690 OPEN8,8,8,"0:"+DN$+",S,R":SYSLO:CLOSE8:GOTO1480
700 PRINT"[147]"TAB(12)" PRINTER SETUP [146]"
710 GOSUB1720:INPUT"  [200][207][215][160][205][193][206][217][160][195][207][208][201][197][211][160][212][207] [208][210][201][206][212]          1[157][157][157]";I
720 IFI<1THEN700
730 GOSUB1720:INPUT"  [208][210][201][206][212] [198][210][207][205] [194][197][199][201][206][206][201][206][199]     (Y/N)    Y[157][157][157]";Z$
740 IFZ$="Y"THENPA=PB:GOTO770
750 IFZ$<>"N"THENPRINT"[145][145][145][145]":GOTO730
760 PA=PL
770 GOSUB1720:INPUT"  [194][207][204][196][198][193][195][197] [212][217][208][197]            (Y/N)    N[157][157][157]";Z$
780 IFZ$="Y"THENBF$=BS$:GOTO810
790 IFZ$<>"N"THENPRINT"[145][145][145][145]":GOTO770
800 BF$=BC$
810 GOSUB1720:INPUT"  [202][213][211][212][201][198][217][160][210][201][199][200][212][160][205][193][210][199][201][206]     (Y/N)    Y[157][157][157]";Z$
820 IFZ$="Y"THENPOKEJR,1:GOTO850
830 IFZ$="N"THENPOKEJR,0:GOTO850
840 PRINT"[145][145][145][145]":GOTO810
850 GOSUB1720:INPUT"  [205][213][204][212][201][208][204][197] [198][201][204][197] [196][207][195][213][205][197][206][212]   (Y/N)    N[157][157][157]";Z$:I$=Z$
860 IFZ$="N"THEN:POKELL,0:FF$=CHR$(12):GOTO930
870 IFZ$<>"Y"THENPRINT"[145][145][145][145]":GOTO850
880 GOSUB1720:I=1:INPUT"  [198][201][210][211][212]/[205][201][196][196][204][197]/[204][193][211][212][160][198][201][204][197] (F/M/L)    F[157][157][157]";Z$
890 IF Z$="F"THENPOKELL,0:FF$="":GOTO930 
900 IF Z$="M"THEN:FF$="":GOTO930 
910 IF Z$<>"L"THENPRINT"[145][145][145][145]":GOTO880
920 FF$=CHR$(12)
930 PRINT""TAB(8)" PRINTER READY (Y/N) ? [146]":GOSUB1720
940 GOSUB1380
950 IFZ$="N"THEN40
960 IFZ$<>"Y"THENGOSUB1740:GOTO940
970 PRINT"[147]";TAB(16)"PRINTING"
980 OPENLF,DN,SA:PRINT#LF,BF$:CLOSELF:SYSPA
990 IF PEEK(LL)=0THENFF$=""
1000 OPENLF,DN,SA:PRINT#LF,BC$+FF$:CLOSELF:IFI$<>"N"THENGOSUB1720:GOTO40
1010 I=I-1:IFITHENPOKELL,0:GOTO970 
1020 GOSUB1720:GOTO40
1030 PRINTCHR$(142);"[147]"TAB(12)"SAVE A DOCUMENT":PRINTTAB(11)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1040 GOSUB1720:DN$="":INPUT" DOCUMENT NAME ";DN$:IFDN$=""THEN40
1050 DN$=LEFT$(DN$,16)
1060 OPEN8,8,8,"0:"+DN$+",S,W"
1070 PRINT" SAVING ";DN$:SYSSV:CLOSE8:GOTO1480
1080 IFPEEK(BO)=0THENPOKEBO,15:POKEBB,15:GOTO120
1090 POKEBO,PEEK(BO)-1:POKEBB,PEEK(BO):GOTO120
1100 IFPEEK(BA)=0THENPOKEBA,15:GOTO120
1110 POKEBA,PEEK(BA)-1:GOTO120
1120 M=M-1:IFM<0THENM=15
1130 POKE646,M:POKECH,M:GOTO40
1140 REM ** SET UP POINTERS AND VARIABLES **
1150 POKE52,63:POKE56,63:POKE650,128
1160 LM=5:RM=5:TM=3:BM=3:M=14
1170 CM=49312:MG=50835:VA=49178:LA=49168:RA=49169:LP=49180:LS=49179:LL=49181
1180 CR=49465:DB=50674:DL=50641:LO=50776:PB=50854:PL=50864:SV=50703
1190 BB=49458:BA=53281:BO=53280:CH=49348:NL=50740:GD=51366:JR=50915
1200 POKE49424,64:REM * MARGIN GRAPHIC
1210 REM  **  DEFINE PRINTER COMMANDS
1220 BS$=CHR$(27)+CHR$(33):BC$=CHR$(27)+CHR$(34):REM * BOLDFACE SET & CLEAR
1230 LF=4:DN=4:SA=5:REM * FILE, DEVICE & SECONDARY ADDR FOR BOLDFACE COMMANDS
1240 POKE50929,27:REM * UNDERLINE SET COMMAND #1
1250 POKE50934,216:REM * UNDERLINE SET COMMAND #2
1260 POKE50939,0:REM * UNDERLINE SET COMMAND #3
1270 POKE50955,27:REM * UNDERLINE CLEAR COMMAND #1
1280 POKE50960,217:REM * UNDERLINE CLEAR COMMAND #2
1290 POKE50965,0:REM * UNDERLINE CLEAR COMMAND #3
1300 POKE50875,4:REM * FILE & DEVICE # FOR TEXT
1310 POKE50878,7:REM * SECONDARY ADDRESS FOR TEXT
1320 RETURN
1330 PRINT"[147]    [205][197][205][207][210][217][160][215][201][204][204][160][194][197][160][195][204][197][193][210][197][196][160][215][201][212][200][160][212][200][201][211]"
1340 PRINT"   [160][198][213][206][195][212][201][207][206]. [201][211][160][212][200][197][210][197][160][193][160][196][207][195][213][205][197][206][212][160][201][206]"
1350 PRINT"    [205][197][205][207][210][217][160][217][207][213][160][215][201][211][200][160][212][207] [211][193][214][197][160][198][201][210][211][212] ??"
1360 PRINT"   [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":PRINTTAB(16)" (Y/N) [146]"
1370 GOSUB1720: RETURN
1380 SYSMG
1390 Z$=CHR$(PEEK(VA)):RETURN
1400 PRINT"[147]            [211][208][197][195][201][198][217] [205][193][210][199][201][206][211]:"
1410 PRINT"          [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1420 GOSUB1720:INPUT"           LEFT MARGIN    ";LM
1430 GOSUB1720:INPUT"           RIGHT MARGIN   ";RM:IFLM+RM>79THEN1400
1440 GOSUB1720:INPUT"           TOP MARGIN     ";TM
1450 GOSUB1720:INPUT"           BOTTOM MARGIN  ";BM:IFTM+BM>65THEN1400
1460 PRINT"           LOOK O.K ? (Y/N) ":GOSUB1720
1470 RETURN
1480 OPEN15,8,15:INPUT#15,A$,B$:CLOSE15
1490 IFB$="OK"THEN40
1500 IFB$="FILE EXISTS"THENGOSUB1740:GOTO1640
1510 PRINT"[147]  [192][192][192][192]ERROR[192][192][192]>   ";B$
1520 PRINT"  DOCUMENT NAME WAS ";DN$
1530 PRINT"              PRESS ANY KEY     [146]":GOSUB1740
1540 GOSUB1380
1550 IFZ$=""THEN1540
1560 PRINTCHR$(14):GOTO40
1570 PRINT"[147]";CHR$(142):SYSGD
1580 OPEN15,8,15:INPUT#15,A$,B$:CLOSE15
1590 IFB$<>"OK"THEN1510
1600 PRINT"              PRESS ANY KEY    [146]":GOSUB1720
1610 GOSUB1380
1620 IFZ$=""THEN1610
1630 PRINTCHR$(14):GOTO40
1640 PRINT"[147]"TAB(14)B$
1650 PRINT"      REPLACE WITH NEW ONE ? (Y/N)"
1660 GOSUB1380
1670 IFZ$="N"THEN40
1680 IFZ$<>"Y"THENGOSUB1740:GOTO1660
1690 PRINT""TAB(8)"NAMING OLD FILE "+CHR$(34)+"BACKUP"+CHR$(34)
1700 OPEN15,8,15:PRINT#15,"S0:BACKUP":PRINT#15,"R0:BACKUP="+DN$:CLOSE15
1710 PRINTTAB(10):GOTO1060
1720 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40
1730 POKE54272,0:FORT=1TO100:NEXT:POKE54276,14:RETURN
1740 POKE54296,15:POKE54277,45:POKE54278,165:POKE54276,33:POKE54273,6
1750 POKE54272,5:FORT=1TO200:NEXT:POKE54276,14:POKE54273,0:POKE54272,0:RETURN